home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / base / term.t < prev   
MacBinary  |  1992-01-05  |  1.6 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert E-Tracker Chiptune (music/eTracker) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Simis (archive/simis) ext Unsupported
1% dexvert TADS (other/tads) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Jan 5 13:56:32 1992, modified Sun Jan 5 13:56:32 1992, creator 'MPS ', type ASCII, 899 bytes "term.t" default (weak)
99% file a ./perl script executable (binary data), at 0x403 428 bytes resource default (weak)
98% file a ./perl script executable (binary data) default (weak)
97% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-4K) default (weak)
16% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 74 65 72 6d 2e 74 | 00 00 00 00 00 00 00 00 |..term.t|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 83 00 | 00 01 ac a5 8d 05 60 a5 |........|......`.|
|00000060| 8d 05 60 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..`.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9c 7b 00 00 |........|.....{..|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 74 65 72 | 6d 2e 74 2c 76 20 34 2e |der: ter|m.t,v 4.|
|000000a0| 30 20 39 31 2f 30 33 2f | 32 30 20 30 31 3a 34 39 |0 91/03/|20 01:49|
|000000b0| 3a 31 37 20 6c 77 61 6c | 6c 20 4c 6f 63 6b 65 64 |:17 lwal|l Locked|
|000000c0| 20 24 0d 0d 70 72 69 6e | 74 20 22 31 2e 2e 36 5c | $..prin|t "1..6\|
|000000d0| 6e 22 3b 0d 0d 23 20 63 | 68 65 63 6b 20 22 22 20 |n";..# c|heck "" |
|000000e0| 69 6e 74 65 72 70 72 65 | 74 61 74 69 6f 6e 0d 0d |interpre|tation..|
|000000f0| 24 78 20 3d 20 22 5c 6e | 22 3b 0d 69 66 20 28 24 |$x = "\n|";.if ($|
|00000100| 78 20 6c 74 20 27 20 27 | 29 20 7b 70 72 69 6e 74 |x lt ' '|) {print|
|00000110| 20 22 6f 6b 20 31 5c 6e | 22 3b 7d 20 65 6c 73 65 | "ok 1\n|";} else|
|00000120| 20 7b 70 72 69 6e 74 20 | 22 6e 6f 74 20 6f 6b 20 | {print |"not ok |
|00000130| 31 5c 6e 22 3b 7d 0d 0d | 23 20 63 68 65 63 6b 20 |1\n";}..|# check |
|00000140| 60 60 20 70 72 6f 63 65 | 73 73 69 6e 67 0d 0d 24 |`` proce|ssing..$|
|00000150| 78 20 3d 20 60 65 63 68 | 6f 20 68 69 20 74 68 65 |x = `ech|o hi the|
|00000160| 72 65 60 3b 0d 69 66 20 | 28 24 78 20 65 71 20 22 |re`;.if |($x eq "|
|00000170| 68 69 20 74 68 65 72 65 | 5c 6e 22 29 20 7b 70 72 |hi there|\n") {pr|
|00000180| 69 6e 74 20 22 6f 6b 20 | 32 5c 6e 22 3b 7d 20 65 |int "ok |2\n";} e|
|00000190| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|000001a0| 6f 6b 20 32 5c 6e 22 3b | 7d 0d 0d 23 20 63 68 65 |ok 2\n";|}..# che|
|000001b0| 63 6b 20 24 23 61 72 72 | 61 79 0d 0d 24 78 5b 30 |ck $#arr|ay..$x[0|
|000001c0| 5d 20 3d 20 27 66 6f 6f | 27 3b 0d 24 78 5b 31 5d |] = 'foo|';.$x[1]|
|000001d0| 20 3d 20 27 66 6f 6f 27 | 3b 0d 24 74 6d 70 20 3d | = 'foo'|;.$tmp =|
|000001e0| 20 24 23 78 3b 0d 70 72 | 69 6e 74 20 22 23 33 5c | $#x;.pr|int "#3\|
|000001f0| 74 3a 24 74 6d 70 3a 20 | 3d 3d 20 3a 31 3a 5c 6e |t:$tmp: |== :1:\n|
|00000200| 22 3b 0d 69 66 20 28 24 | 23 78 20 3d 3d 20 27 31 |";.if ($|#x == '1|
|00000210| 27 29 20 7b 70 72 69 6e | 74 20 22 6f 6b 20 33 5c |') {prin|t "ok 3\|
|00000220| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 70 72 69 6e 74 |n";} els|e {print|
|00000230| 20 22 6e 6f 74 20 6f 6b | 20 33 5c 6e 22 3b 7d 0d | "not ok| 3\n";}.|
|00000240| 0d 23 20 63 68 65 63 6b | 20 6e 75 6d 65 72 69 63 |.# check| numeric|
|00000250| 20 6c 69 74 65 72 61 6c | 0d 0d 24 78 20 3d 20 31 | literal|..$x = 1|
|00000260| 3b 0d 69 66 20 28 24 78 | 20 3d 3d 20 27 31 27 29 |;.if ($x| == '1')|
|00000270| 20 7b 70 72 69 6e 74 20 | 22 6f 6b 20 34 5c 6e 22 | {print |"ok 4\n"|
|00000280| 3b 7d 20 65 6c 73 65 20 | 7b 70 72 69 6e 74 20 22 |;} else |{print "|
|00000290| 6e 6f 74 20 6f 6b 20 34 | 5c 6e 22 3b 7d 0d 0d 23 |not ok 4|\n";}..#|
|000002a0| 20 63 68 65 63 6b 20 3c | 3e 20 70 73 65 75 64 6f | check <|> pseudo|
|000002b0| 6c 69 74 65 72 61 6c 0d | 0d 6f 70 65 6e 28 74 72 |literal.|.open(tr|
|000002c0| 79 2c 20 22 44 65 76 3a | 4e 75 6c 6c 22 29 20 7c |y, "Dev:|Null") ||
|000002d0| 7c 20 28 64 69 65 20 22 | 43 61 6e 27 74 20 6f 70 || (die "|Can't op|
|000002e0| 65 6e 20 44 65 76 3a 4e | 75 6c 6c 2e 22 29 3b 0d |en Dev:N|ull.");.|
|000002f0| 69 66 20 28 3c 74 72 79 | 3e 20 65 71 20 27 27 29 |if (<try|> eq '')|
|00000300| 20 7b 0d 20 20 20 20 70 | 72 69 6e 74 20 22 6f 6b | {.    p|rint "ok|
|00000310| 20 35 5c 6e 22 3b 0d 7d | 0d 65 6c 73 65 20 7b 0d | 5\n";.}|.else {.|
|00000320| 20 20 20 20 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |    prin|t "not o|
|00000330| 6b 20 35 5c 6e 22 3b 0d | 20 20 20 20 64 69 65 20 |k 5\n";.|    die |
|00000340| 22 44 65 76 3a 4e 75 6c | 6c 20 49 53 20 4e 4f 54 |"Dev:Nul|l IS NOT|
|00000350| 20 41 20 43 48 41 52 41 | 43 54 45 52 20 53 50 45 | A CHARA|CTER SPE|
|00000360| 43 49 41 4c 20 46 49 4c | 45 21 21 21 21 5c 6e 22 |CIAL FIL|E!!!!\n"|
|00000370| 20 75 6e 6c 65 73 73 20 | 2d 63 20 27 44 65 76 3a | unless |-c 'Dev:|
|00000380| 4e 75 6c 6c 27 3b 0d 7d | 0d 0d 6f 70 65 6e 28 74 |Null';.}|..open(t|
|00000390| 72 79 2c 20 22 3a 3a 4d | 61 6b 65 66 69 6c 65 22 |ry, "::M|akefile"|
|000003a0| 29 20 7c 7c 20 28 64 69 | 65 20 22 43 61 6e 27 74 |) || (di|e "Can't|
|000003b0| 20 6f 70 65 6e 20 3a 3a | 4d 61 6b 65 66 69 6c 65 | open ::|Makefile|
|000003c0| 2e 22 29 3b 0d 69 66 20 | 28 3c 74 72 79 3e 20 6e |.");.if |(<try> n|
|000003d0| 65 20 27 27 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |e '') {p|rint "ok|
|000003e0| 20 36 5c 6e 22 3b 7d 20 | 65 6c 73 65 20 7b 70 72 | 6\n";} |else {pr|
|000003f0| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 36 5c 6e 22 |int "not| ok 6\n"|
|00000400| 3b 7d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;}......|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000490| a9 a0 26 5f 61 bb 6c 20 | 54 b6 01 16 a9 4b 20 a5 |..&_a.l |T....K .|
|000004a0| ea 1f 12 04 20 2f 06 22 | 2f 01 2f 02 0a 24 00 c4 |.... /."|/./..$..|
|000004b0| 06 74 65 72 6d 2e 74 da | 02 00 00 00 54 45 58 54 |.term.t.|....TEXT|
|000004c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 76 41 |MPS ....|......vA|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a5 8c 0c 04 00 00 | 03 83 00 00 01 ac 2f 06 |........|....../.|
|00000500| 64 20 2f 01 0e 38 00 24 | 01 e4 4a 42 66 1c 72 36 |d /..8.$|..JBf.r6|
|00000510| 00 af 6d 3f 80 c1 34 00 | e4 30 03 19 80 c1 34 00 |..m?..4.|.0....4.|
|00000520| 22 02 af 6d 60 22 24 00 | af c8 6d e4 42 42 26 01 |"..m`"$.|..m.BB&.|
|00000530| 33 78 0f d4 82 d1 80 03 | d2 81 b0 83 65 04 90 83 |3x......|....e...|
|00000540| 52 01 51 cc 28 23 c0 26 | 04 00 00 0f 1d a8 9f 65 |R.Q.(#.&|.......e|
|00000550| 72 00 12 09 01 00 00 14 | 0a 00 02 00 00 00 02 c5 |r.......|........|
|00000560| bd 00 43 44 45 46 00 3f | 00 4e fa 09 e5 10 cb 0e |..CDEF.?|.N......|
|00000570| 0f 18 3a 2e 05 3e 2e 25 | da 24 1c 7c 00 0a 1f a8 |..:..>.%|.$.|....|
|00000580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 77 61 6c |...H..Mo|naco.wal|
|00000590| 6c 20 4c 6f 63 6b 65 64 | 20 24 0d 0d 70 72 69 6e |l Locked| $..prin|
|000005a0| 74 20 22 31 2e 2e 00 06 | 00 03 00 50 00 20 01 dd |t "1....|...P. ..|
|000005b0| 02 3d 00 50 00 20 01 dd | 02 3d a5 8c cd 20 00 00 |.=.P. ..|.=... ..|
|000005c0| 00 e4 00 00 00 e4 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000005d0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000600| a4 ec 07 b8 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000610| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 03 f0 ff ff 00 00 00 4c | 00 31 b0 2c 00 00 00 00 |.......L|.1.,....|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+